home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / gus / vts139b.zip / DEVDAC.INC < prev    next >
Text File  |  1980-01-05  |  1KB  |  67 lines
  1.  
  2.                 DATASEG
  3.  
  4. EXTRN DacPort  : WORD
  5. EXTRN LDacPort : WORD
  6. EXTRN RDacPort : WORD
  7.  
  8.                 CODESEG
  9.  
  10. DevDacStartRut EQU DeviceStartRutRet
  11.  
  12. DevDacRut1 EQU DeviceRut1Ret
  13.  
  14. DevDacRut2Mono:
  15. ;                JMP     DeviceRut2Ret
  16.                 XOR     AH,80h
  17.                 MOV     AL,AH
  18.  
  19.                 MOV     DX,[DacPort]
  20.                 OUT     DX,AL
  21.  
  22.                 JMP     DeviceRut2Ret
  23.  
  24. DevDacRut2Stereo:
  25. ;                JMP     DeviceRut2Ret
  26.                 XOR     AH,80h
  27.                 XOR     CH,80h
  28.  
  29.                 MOV     DX,[LDacPort]
  30.                 MOV     AL,AH
  31.                 OUT     DX,AL
  32.  
  33.                 MOV     DX,[RDacPort]
  34.                 MOV     AL,CH
  35.                 OUT     DX,AL
  36.  
  37.                 JMP     DeviceRut2Ret
  38.  
  39.  
  40.  
  41.  
  42. PUBLIC DevInitDac
  43.  
  44. PROC DevInitDac FAR Ster: BYTE, Bits: BYTE
  45.  
  46.                 MOV     AL,[Ster]
  47.                 AND     AL,AL
  48.                 JZ      @@mono
  49.                  MOV    AX,OFFSET DevDacRut2Stereo
  50.                 JMP     @@stereo
  51. @@mono:          MOV    AX,OFFSET DevDacRut2Mono
  52. @@stereo:
  53.                 MOV     [DeviceRut2],AX
  54.  
  55.                 MOV     AX,OFFSET DevDacStartRut
  56.                 MOV     [DeviceStartRut],AX
  57.  
  58.                 MOV     AX,OFFSET DevDacRut1
  59.                 MOV     [DeviceRut1],AX
  60.  
  61.                 RET
  62.  
  63. ENDP
  64.  
  65.  
  66.  
  67.